home *** CD-ROM | disk | FTP | other *** search
/ PC Home 48 / Fun Clicp Art 5000.iso / r / mbm / 00782_SU-IN 2 ge.ls < prev    next >
Encoding:
Text File  |  1996-05-11  |  1.2 KB  |  43 lines
  1. on enterFrame
  2.   global g1erSprChr, gMaxBoutons
  3.   repeat with i = g1erSprChr to gMaxBoutons
  4.     puppetSprite(i, 1)
  5.   end repeat
  6. end
  7.  
  8. on exitFrame
  9.   global gSujet0, gSujet1, gMessDef1, gMessSty1, gMessDef2, gMessSty2, g1erSprNav, g1erSprChr, g1erSprLoc, gMaxBoutons, gBoutons, gBarChron, gSurvolPrec, gEtudAct, gEtudPrec, gEtatEtud, gTraduit
  10.   gBarChron(fleche, 0, 1, 1)
  11.   Affiche_Date(gSujet0, "ZI1", "ZI2", "ZI3", 0)
  12.   set monEpok to gSujet0(Le_Epoque)
  13.   if (monEpok = 70) or (monEpok = 4) then
  14.     gBoutons(habille, g1erSprLoc + 5, "vide")
  15.   end if
  16.   repeat with i = g1erSprChr to gMaxBoutons
  17.     set the visible of sprite i to 1
  18.   end repeat
  19.   set monStatut to gSujet0(Le_Statut)
  20.   if monStatut = "A" then
  21.     gBoutons(appuie, g1erSprLoc + 4)
  22.     set the visible of sprite (g1erSprNav + 2) to 1
  23.   else
  24.     gBoutons(appuie, g1erSprLoc + 5)
  25.     set the visible of sprite (g1erSprNav + 2) to 0
  26.   end if
  27.   if gSujet1 = 0 then
  28.     set gEtudAct to "GE"
  29.     set gEtudPrec to " "
  30.     set gEtatEtud to " "
  31.     set gMessDef1 to getAt(gTraduit, 31)
  32.     set gMessSty1 to "bold"
  33.     set gMessDef2 to " "
  34.     set gMessSty2 to "bold"
  35.   else
  36.     nothing()
  37.   end if
  38.   JukeBox(1, " ")
  39.   curseur(-1)
  40.   set gSurvolPrec to -1
  41.   BigPurge()
  42. end
  43.